home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pseudo-s / pseudo_2.lha / packages.lisp < prev    next >
Encoding:
Text File  |  1991-11-22  |  4.8 KB  |  140 lines
  1.  
  2. ; Packages for Pseudoscheme
  3.  
  4. (defpackage "SCHEME"
  5.   (:use))
  6.  
  7. (defpackage "REVISED^4-SCHEME"
  8.   (:use "LISP")
  9.   (:export ".AND" "BEGIN" ".CASE" ".COND" "DEFINE" "DELAY" ".DO" ".IF"
  10.        ".LAMBDA" "LETREC" ".LET" ".LET*" ".OR" "QUASIQUOTE"
  11.        ".QUOTE" "SET!" "UNQUOTE" "UNQUOTE-SPLICING"
  12.        "DEFINE-SYNTAX" "LET-SYNTAX" "LETREC-SYNTAX" "SYNTAX-RULES"
  13.        "=>" "ELSE" ".*" ".+" ".-" "./" ".<" ".<=" ".=" ".>" ".>="
  14.        ".APPLY" "BOOLEAN?" "CALL-WITH-CURRENT-CONTINUATION" ".CAR"
  15.        ".CDR" "CHAR->INTEGER" "CHAR-READY?"  "CLOSE-INPUT-PORT"
  16.        "CLOSE-OUTPUT-PORT" "COMPLEX?" ".CONS" "CURRENT-INPUT-PORT"
  17.        "CURRENT-OUTPUT-PORT" ".DENOMINATOR" "EOF-OBJECT?" "EQ?"
  18.        "EQV?" "EXACT->INEXACT" "EXACT?"  "IMAG-PART"
  19.        "INEXACT->EXACT" "INEXACT?" "INPUT-PORT?" "INTEGER->CHAR"
  20.        "INTEGER?" ".LOAD" "MAGNITUDE" "MAKE-POLAR"
  21.        "MAKE-RECTANGULAR" ".MAKE-STRING" "MAKE-VECTOR" "MODULO"
  22.        "NEWLINE" ".NOT" "NULL?" "NUMBER?" ".NUMERATOR"
  23.        "OPEN-INPUT-FILE" "OPEN-OUTPUT-FILE" "OUTPUT-PORT?" "PAIR?"
  24.        ".PEEK-CHAR" "PROCEDURE?" "QUOTIENT" "RATIONAL?"
  25.        ".READ-CHAR" "REAL-PART" "REAL?" "REMAINDER" "SET-CAR!"
  26.        "SET-CDR!" ".STRING" "STRING->SYMBOL" "STRING-LENGTH"
  27.        "STRING-REF" "STRING-SET!" "STRING?" "SYMBOL->STRING"
  28.        "SYMBOL?"  "TRANSCRIPT-ON" "TRANSCRIPT-OFF" "VECTOR-LENGTH"
  29.        "VECTOR-REF" "VECTOR-SET!" "VECTOR?"  ".WRITE-CHAR"
  30.        ".APPEND" ".ASSOC" "ASSQ" "ASSV" ".ABS" ".ACOS" "ANGLE"
  31.        ".ASIN" ".ATAN" ".CAAAAR" ".CAAADR" ".CAADAR" ".CAADDR"
  32.        ".CAAAR" ".CAADR" ".CAAR" ".CADAAR" ".CADADR" ".CADDAR"
  33.        ".CADDDR" ".CADAR" ".CADDR" ".CADR" "CALL-WITH-INPUT-FILE"
  34.        "CALL-WITH-OUTPUT-FILE" ".CDAAAR" ".CDAADR" ".CDADAR"
  35.        ".CDADDR" ".CDAAR" ".CDADR" ".CDAR" ".CDDAAR" ".CDDADR"
  36.        ".CDDDAR" ".CDDDDR" ".CDDAR" ".CDDDR" ".CDDR" ".CEILING"
  37.        "CHAR-ALPHABETIC?" "CHAR-CI<=?" "CHAR-CI<?"  "CHAR-CI=?"
  38.        "CHAR-CI>=?" "CHAR-CI>?" ".CHAR-DOWNCASE"
  39.        "CHAR-LOWER-CASE?"  "CHAR-NUMERIC?" ".CHAR-UPCASE"
  40.        "CHAR-UPPER-CASE?" "CHAR-WHITESPACE?" "CHAR<=?" "CHAR<?"
  41.        "CHAR=?" "CHAR>=?" "CHAR>?" "CHAR?" ".COS" "DISPLAY"
  42.        "EQUAL?" "EVEN?" ".EXP" ".EXPT" ".FLOOR" "FOR-EACH" "FORCE"
  43.        ".GCD" ".LCM" ".LIST" ".LOG" ".LENGTH" "LIST->STRING"
  44.        "LIST->VECTOR" "LIST-REF" "LIST-TAIL" "LIST?" ".MAP" ".MAX"
  45.        ".MEMBER" "MEMQ" "MEMV" ".MIN" "NEGATIVE?"
  46.        "NUMBER->STRING" "ODD?" ".RATIONALIZE" "POSITIVE?" ".READ"
  47.        ".REVERSE" ".ROUND" ".SIN" ".SQRT" "STRING->LIST"
  48.        "STRING->NUMBER" "STRING-APPEND" "STRING-CI<=?"
  49.        "STRING-CI<?"  "STRING-CI=?" "STRING-CI>=?" "STRING-CI>?"
  50.        "STRING-COPY" "STRING-FILL!" "STRING<=?"  "STRING<?"
  51.        "STRING=?" "STRING>=?" "STRING>?" "SUBSTRING" ".TAN"
  52.        ".TRUNCATE" ".VECTOR" "VECTOR->LIST" "VECTOR-FILL!"
  53.        "WITH-INPUT-FROM-FILE" "WITH-OUTPUT-TO-FILE" ".WRITE"
  54.        "ZERO?"))
  55.  
  56. (defpackage "SCHEME-TRANSLATOR"
  57.   (:use "LISP" "REVISED^4-SCHEME")
  58.   (:export "MAKE-PROGRAM-ENV"
  59.            "MAKE-SIGNATURE"
  60.        "MAKE-MODULE"
  61.        "PROGRAM-ENV-ID"
  62.        "PROGRAM-ENV-PACKAGE"
  63.        "PROGRAM-ENV-LOOKUP"
  64.        "PROGRAM-ENV-DEFINE!"
  65.        "TRANSLATE"
  66.        "TRANSLATE-LAMBDA"
  67.        "REALLY-TRANSLATE-FILE"
  68.        "TRANSLATOR-VERSION"
  69.        "PERFORM-USUAL-INTEGRATIONS!"
  70.        "SCHEME-TRANSLATOR-ENV"
  71.        "SCHEME-TRANSLATOR-MODULE"
  72.        "REVISED^4-SCHEME-MODULE"
  73.        "SCHEME-USER-ENVIRONMENT"
  74.        ))
  75.  
  76. (defpackage "SCHH"
  77.   (:nicknames "SCHEME-HACKS")
  78.   (:use "LISP")
  79.   (:export "INTERN-RENAMING-PERHAPS"
  80.        "QUALIFIED-SYMBOL-P"
  81.        "MAKE-PHOTON"
  82.        "PHOTON-P"
  83.        "FIND-SYMBOL-RENAMING-PERHAPS"
  84.        "LISP-PACKAGE"
  85.        "SCHEME-PACKAGE"
  86.        "SCHEME-READTABLE"
  87.        "*NON-SCHEME-READTABLE*"
  88.        "FIX-SCHEME-PACKAGE-IF-NECESSARY"
  89.        "CLEVER-LOAD"
  90.        "*SHARP-SHARP*"
  91.        ))
  92.  
  93. (defpackage "SCHI"
  94.   (:nicknames "SCHEME-INTERNAL")
  95.   (:use "LISP" "SCHEME-TRANSLATOR")
  96.   (:import-from "SCHH" "LISP-PACKAGE")
  97.   (:export "LOADIT"
  98.        "LISP-PACKAGE"
  99.        "SCHEME-USER-ENVIRONMENT"
  100.        "SCHEME-EVAL"
  101.        "SCHEME-LOAD"
  102.        "SCHEME-COMPILE"
  103.        "SCHEME-COMPILE-FILE"
  104.        "TRANSLATE-FILE"
  105.        "SET-REP-ENVIRONMENT!"
  106.        "SCHEME"
  107.        "QUIT"
  108.        "SCHEME-ERROR"
  109.        "PP"
  110.        ;; Auxiliaries for Scheme special forms & macros
  111.        "SET!-AUX"
  112.        "SET-FUNCTION-FROM-VALUE"
  113.        "SET-VALUE-FROM-FUNCTION"
  114.        "SET-FORWARDING-FUNCTION"
  115.        "UNSPECIFIED"
  116.        "UNASSIGNED"
  117.        "TRUE"            ; #t
  118.        "FALSE"            ; #f
  119.        "TRUE?"            ; CL boolean -> Scheme boolean
  120.        "TRUEP"            ; Scheme boolean -> CL boolean
  121.        "BEGIN-TRANSLATED-FILE"    ;prelude
  122.        "AT-TOP-LEVEL"          ;kludge for symbolics lossage
  123.        ;; Additional auxiliaries for Revised^4 builtins
  124.        "SCHEME-PACKAGE"        ;for STRING->SYMBOL
  125.        "PROCEDUREP"            ;for PROCEDURE?
  126.        "SCHEME-SYMBOL-P"        ;for SYMBOL?
  127.        "SCHEME-EQUAL-P"        ;for MEMBER, ASSOC, EQUAL?
  128.        "BOOLEANP"
  129.        "CHAR-WHITESPACE-P"
  130.        "INPUT-PORT-P"
  131.        "OUTPUT-PORT-P"
  132.        "REALP"
  133.        ;; Additional auxiliaries for Revised^4 non-builtins
  134.        "SCHEME-LOAD"        ;forward reference from RTS to EVAL
  135.        "SCHEME-READTABLE"        ;for READ
  136.        "EOF-OBJECT"            ;for READ, READ-CHAR
  137.        ;; Random
  138.        "SCHEME-ERROR"
  139.        ))
  140.